home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 September / Chip_2003-09_cd2.bin / system / xteq / setup.exe / {app} / plugins / XQ AOL Sound 01.xpl < prev    next >
Encoding:
XSetup plugin  |  2002-10-29  |  1.9 KB  |  70 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="1"
  3. "COUNT"="5"
  4. "UIPATH 1"="Internet\America Online"
  5. "UIPATH 2"="Program Options\Other Programs\America Online"
  6. "NAME"="Default Sound #1"
  7. "LANGUAGE"="VBScript"
  8. "VERSION"="1.11"
  9. "TEXT 1"="#1 NewMail"
  10. "TEXT 2"="#2 Welcome"
  11. "TEXT 3"="#3 Goodbye"
  12. "TEXT 4"="#4 FileDone"
  13. "TEXT 5"="#5 BuddyIn"
  14. "DESCRIPTION 1"="You may change the sound to suit your preference. Use the full path and file name for your new preference."
  15. "DESCRIPTION 2"="The default value are:"
  16. "DESCRIPTION 3"="#1: gotmail.wav"
  17. "DESCRIPTION 4"="#2: welcome.wav"
  18. "DESCRIPTION 5"="#3: goodbye.wav"
  19. "DESCRIPTION 6"="#4: filedone.wav"
  20. "DESCRIPTION 7"="#5: buddyin.wav"
  21. "DESCRIPTION 8"="If you don't want any sound, clear the fields."
  22. "AUTHOR"="Ojatex@aol.com"
  23. "CONTACTURL"="http://members.aol.com/ojatex/"
  24. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  25. "COMMENT 1"=" "
  26. "COMMENT 2"="Hate AOL sounds? Then zip 'em & ship 'em!"
  27.  
  28.  
  29.  
  30. sPath="HKCU\AppEvents\Schemes\Apps\Waol\"
  31.  
  32. sV1="HKCU\AppEvents\Schemes\Apps\Waol\You've Got Mail\.Current\@"
  33. sV2="HKCU\AppEvents\Schemes\Apps\Waol\Welcome\.Current\@"
  34. sV3="HKCU\AppEvents\Schemes\Apps\Waol\Goodbye\.Current\@"
  35. sV4="HKCU\AppEvents\Schemes\Apps\Waol\File's Done\.Current\@"
  36. sV5="HKCU\AppEvents\Schemes\Apps\Waol\BuddyIn\.Current\@"
  37.  
  38. Sub Plugin_Initialize 
  39.  if RegPathExists(sPath) then
  40.     SetUIElement 1,RegReadValue(sV1)
  41.     SetUIElement 2,RegReadValue(sV2)
  42.     SetUIElement 3,RegReadValue(sV3)
  43.     SetUIElement 4,RegReadValue(sV4)
  44.     SetUIElement 5,RegReadValue(sV5)
  45.  else
  46.     Disable
  47.  end if
  48. End Sub
  49.  
  50.  
  51. Sub Plugin_CheckData(ElementIndex)
  52. End Sub
  53.  
  54.  
  55.  
  56. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  57.  Call RegWriteValue(sV1,GetUIElement(1),1)
  58.  Call RegWriteValue(sV2,GetUIElement(2),1)
  59.  Call RegWriteValue(sV3,GetUIElement(3),1)
  60.  Call RegWriteValue(sV4,GetUIElement(4),1)
  61.  Call RegWriteValue(sV5,GetUIElement(5),1)
  62. End Sub
  63.  
  64.  
  65. Sub Plugin_Terminate 
  66. End Sub
  67.  
  68.  
  69.  
  70.